Friend Class DebugTraceListener
	Inherits TraceListener

	Public Dispatch As CommandDispatch
	Public Overloads Overrides Sub Write(ByVal message As String)
		'Dispatch.Toaster.Notify(message)
	End Sub

	Public Overloads Overrides Sub WriteLine(ByVal message As String)
		Me.Write(message + vbNewLine)
	End Sub
End Class
